home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011a.d64 / pascal 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  278b  |  14 lines
  1. 10 PRINT"[147]":REM PASCAL-KOEFFIZIENTEN
  2. 20 PRINT"PASCAL-KOEFFIZIENTEN"
  3. 30 PRINT"********************"
  4. 40 DIMK(200):K(100)=1
  5. 50 INPUT" EXPONENT DES BINOMS";N
  6. 60 FORA=1TON
  7. 70 FORR=100-ATO100+ASTEP2
  8. 80 K(R)=K(R-1)+K(R+1)
  9. 90 NEXTR:NEXTA
  10. 100 PRINT"DIE KOEFFIZIENTEN SIND:"
  11. 110 FORI=100-NTO100+NSTEP2
  12. 120 PRINTK(I);
  13. 130 NEXTI
  14.